10 POKE53281,1:POKE53280,1:N=1:SC=1670:CC=55942:POKE252,25:POKE254,5
20 PRINT"[147] CAUTION  SMOKING IS HAZARDOUS[154]"
30 FORT=12288TO12670:READA:POKET,A:NEXT
40 FORT=49152TO49215:READA:POKET,A:NEXT
50 V=53248:POKEV+27,255:POKEV+29,25:POKEV+23,24:O=V+21
60 FORT=0TO7:POKEV+T+39,14:POKET+2040,T+192:NEXT
70 POKEV,70:POKEV+2,52:POKEV+4,52:POKEV+6,10:POKEV+8,42:POKEV+10,62
80 POKEV+1,130:POKEV+3,162:POKEV+5,183:POKEV+7,64:POKEV+9,183:POKEV+11,166
90 POKESC,160:POKECC,1
100 PRINT"MEET JOE.";:POKEO,6:FORT=1TO2500:NEXT
105 PRINT"   HE SMOKES."
110 POKESC,32:SP=39:SYS49152:FORT=1TO2500:NEXT
120 GOSUB670
130 Z=Z+1:IFZ=3THENSP=47
140 IFZ=11THEN160
150 GOTO120
160 PRINT"[145]JOE'S BREATH GETS SHORTER":GOSUB670:POKE252,8:POKE254,2
170 FORI=0TO6:GOSUB670:NEXT
180 PRINT"[145]          JOE'S LUNGS GROW BLACKER...":POKE252,5:POKE254,1
190 POKEO,51:POKEV+1,145:FORT=29TO0STEP-1:POKET+12547,255
200 FORI=1TOT*25:NEXT:POKEV+1,145:NEXT
210 PRINT"[147][145]FINALLY, JOE TAKES HIS LAST...":SP=18:GOSUB680:POKE254,2
220 FORT=0TO22:POKEV+3,162+T
230 FORI=1TO100:NEXT:NEXT
240 POKEV+1,120:PRINT"[147]
250 [151]V[170]23,17:[151]O,1:[151]254,255:[141]680
260 [129]T[178]12288[164]12350:RN[178][181]([187](0)[172]256):[151]T,[194](T)[175] RN
270 [130]:C[178]C[170]1
280 [139]C[179]6[167]260
290 [153],"    DON'T SMOKE!"
300 [151]V[170]2,100:[151]V[170]3,115:[151]O,2
310 [129] B[178]0[164]5000:[130]B:[158]64738
320 [143] *"PUFF"************************
330 [131] 3,57,224,28,198,24,32,0,6,78,7,1,73,20,245,73,84,133
340 [131] 142,86,201,136,84,137,136,84,129,72,96,145,64,0,6,60
350 [131] 24,56,2,39,192,3,192,0,0,6,0,0,9,0,0,6,0,0,0,0,0
360 [131] 48,0,0,72,0,0,48,0
370 [143] *JOE'S HEAD********************
380 [131] 103,15,224,0,60,248,0,113,255,56,255,255,252,234,255
390 [131] 252,191,160,32,255,134,112,255,200,16,243,195,56,225,192
400 [131] 16,225,128,8,225,128,132,97,128,66,124,0,62,112,0,8
410 [131] 232,0,248,8,128,24,4,96,44,2,24,198,1,7,3,0,129,0
420 [143] *JOE'S BODY********************
430 [131] 103,3,255,128,4,0,32,8,32,16,16,32,16,31,192,16,16
440 [131] 64,112,16,64,144,16,128,144,21,0,144,17,0,80,17,0,80
450 [131] 17,255,160,8,247,160,7,247,192,3,239,0,3,207,0,3
460 [131] 207,0,3,207,0,3,199,0,3,252,248,3,254,252
470 [143] *CIGARETTES********************
480 [131] 103,0,1,224,0,7,32,0,29,32,0,21,32,15,245,32,15,255
490 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,15,255
500 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,15,255
510 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,0,0,0
520 [143] *X-RAY*************************
530 [131] 255,127,255,254,252,56,127,240,16,31,224,16,15,224,16,15
540 [131] 224,56,15,224,56,15,224,56,15,240,124,31,248,124,63,252
550 [131] 254,127,255,255,255,192,0,3,192,0,3,202,0,3,202,114,83
560 [131] 202,87,83,196,101,35,202,87,35,202,85,35,202,0,3,160
570 [143] *JOE A-PUFFING*****************
580 [131] 0,0,0,0,0,6,0,0,25,0,0,18,0,0,12,0,0,0,0,0,0,0
590 [131] 0,0,0,0,0,0,0,10,0,0,18,0,0,12,0,0,0,0,0,0,0,0
600 [131] 96,0,0,64,0,0,0,0,0,0,28,0,0,12,0,0,4,0,0
610 [143] *INTERRUPT DATA****************
620 [131] 120,169,13,141,20,3,169,192,141,21,3,88,96,238
630 [131] 6,208,198,253,165,253,208,7,206,1,208,165,254,133
640 [131] 253,198,251,165,251,208,26,24,173,10,208,74,176,9
650 [131] 238,10,208,206,11,208,76,57,192,206,10,208,238,11
660 [131] 208,165,252,133,251,76,49,234
670 [151]V[170]1,145:[151]O,SP:[141]680:[151]O,SP[171]1:[141]680:[142]
680 [129]K[178]1[164]500:[130]:[142]